: 
pares mam ccccceccccce «OL G00 
mate a MMe cccccccccccc LLL DDDDDDDDDDDD RRRRRRRRRRRR 
fe lata ccccccccccec «LLL DODDDDDODODD RRRRRRRRRRRR 000 
MMMMMM =O MMMMMM «CCC LLL DDD DDD RRR RRR 000 
MMMMMM =6OMMMMMM «CCC Lie DDD DDD RRR RRR 000 
MMMMMM 6 MMMMMM «(CCC tel DDD DDD RRR RRR 000 
MMM 6OUMMM OMIM «OCC LLL DDD DDD RRR RRR 000 
MMM 6OMMM OMIM «OCC LLL DDD DDD RRR RRR 000 
M~M 6 6OMMM OMIM OCC LLL DDD DDD RRR RRR 000 
Talal MMM CCC LLL DDD DDD RRRRRRRRRRRR 000 
wren MMM CCC LLi DDD DDD RRRRRRRRRRRR 000 
MMe mmm CCC LLL DDD DDD RRRRRRRRRRRR 000 
pM mmm CCC LLL DDD DDD RRR RRR 000 
fe Mae MMM CCC LLL DDD DDD RRR RRR 000 
mM MMM CCC LLL DDD DDD RRR RRR 000 
Flchd MMM CCC LLL DDD DDD R 000 
fest mMM CCC LLL DDD DDD RRR PRR 009 
Han MMM CCC LLL DDD DDD RRR RRR 000 
MoM pet CCCCCCCCCCCE «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR 000 
edad rant CCCCCCCCCCCC «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR 000 
MMM MMM CCCCCCCCCCCC «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR oye 
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**F ILE**1D**LALOAD 
LL AAAAAA LL 000000 AAAAAA DDDDDDDD 
LL AAAAAA LL 000000 AAAAAA DODDDDDD 
LL AA AA LL 00 OO AA AA DD DD 
LL AA AA LL 00 00 AA AA 0D DD 
LL AA AA LL 00 00 AA AA 0D DD 
LL AA AA LL 00 OO AA AA DD DD 
LL AA AA LL 00 AA AA DD DD 
LL AA AA LL 00 00 AA AA 0D DD 
LL AAAAAAAAAA LL 00 O00 AAAAAAAAAA DD DD 
LL AAAAAAAAAA LL 00 00 AAAAAAAAAA DD DD 
L AA AA LL 00 OO AA AA 0D DD eeee 
L AA AA LL 00 00 AA AA 0D DD eee 
LLLLLLLLLL AA AA LLLLLLLLLL 000000 AA AA DDDDDDDD sees 
LLLLLLLLLL AA AA LLLLLLLLLL 000000 AA AA DDDDDDDD cove 
LL T1111] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III SSSSSSSS 
LELLLLLLLL III] SSSSSSSS 
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IDENT "WOe-000" 


SRARARERERE AERA HEATER AARARERAAAARAAEAAAAAAAAAAEAAATAEAAAAAEAREREAEEEAEEEe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
thee ht af ys _GORPORATION, MAYNARD. MASSACHUSETTS. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd LA 
N eee WITH THE TERMS OF SUCH LICENSE AN ‘A WITH THE 
ION OF THE ABOVE git NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
GRANSFERRESe NO TITLE TO AND OWNERSHIF OF THE SOFTWARE IS HERESY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
eORPORATI On NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 


ARR RRAARARALAALALALALAL ELLE SESE SEE ESE EE EEE SEES SEES SEES EEE ECE ECCLES SE 


j++ 
; FACILITY: LPA-11 UTILITY PROGRAMS 


ABSTRACT 


THIS PROGRAM PROVIDES ie aS rt be INTERFACE TO LOAD LPA-11 
MICROCODE. THIS PROGRAM, READS OPERATOR COMMANDS AND SENDS 
LOAD REQUESTS TO THE LPA-11 LOADER PROCESS. 


ENVIRONMENT: USER MODE 
AUTHOR: STEVE BECKHARDT, CREATION DATE: 9-OCT-78 


MODIFIED BY: 


» + VERSION 
01 ° 


J 10 
40%-000 DECLARATIONS "PrSep=fobe Oiiessst EmeiDR smescatonosor;1 a8" (3, 
.SBTTL DECLARATIONS 
; INCLUDE FILES: 


47 
4 
‘ 

: : MACROS: 

4; 

9 - 

: EQUATED SYMBOLS: 
60 
61 
$4 


00000061 COWER_A = “x61 ; LOWERCASE A 
0000007A : LOWER_2 = *X7A ; LOWERCASE 2 
65 ; 
a9 ee 3 OWN STORAGE: 
6 oe 
0000 0 ¢ .PSECT LPADATA,LONG 
$6 e3 INFAB: $FAB FAC = GET,- 
0 0 FNM = <SYS$INPUT>,- 
00 4 RAT = CR 
030 ie OUTFAB: SFAB FAC = PUT,- 
05 74 FNM = <SYS$$OUTPUT>,- 
oA 13 RAT = CR 
OA ie INRAB: $RAB FAB = INFAB,- 
A i. PBF = PROMPT,- 
A 7 PS7 = PROMPTSZ,- 
A 0 ROP = <CCO,PMT>,- 
Ap 1 UBF = BUFFER, 
Ad : USZ = 132 
0 4 s OUTRAB: $RAB «FAB = OUTFAB 
1 
1 $ DEVDESC: : DEVICE DESCRIPTOR 
00000130 8 -BLKQ 1 a Saeene 
1 HAN: : 
sosnnsti } DEVC Pops DEVICE CHANNEL 
00000232 01 3 BUFFER: .BLKB 256 : BUFFER FOR INPUT AND OUTPUT 


0000182" 
0000028" 


2. 
00 
SE 44 41 4F 4C 
00 


74 69 77 73 20 64 69 6C 61 76 6E 49 
000000 : 
53 45 55 51 45 52 SF 49 54 4C 55 4 
0000000D 
54 49 47 49 44 SF 47 GF 4C 41 4E 41 
0000000 
4C 41 GE 41 SF 4C 41 54 49 47 49 44 
0000000E 


60060003 


DECLARATIONS 
000 


WWII anonoronoronong 2 2 2 


SOOGCGOOOCS FDSOSOOSOOOOOOOOOoCoOO 
SPP PWOMOOM SPMMMG $$$ HIWMWWIWWIO OO WWLOOMDLSOOT@@o 


PAASASAMIMNVIMNLS LLL LL SE 


«PSECT LPACODE ,NOWRT,LONG 

BUF FERDSC: ; BUFFER DESCRIPTOR 
-LONG 256 
«LONG BUFFER 


soca | ; DEFAULT DEVICE NAME DESCRIPTOR 


; DEF DEVSZ 
; [LONG DEFDEV 
5 SWTBL: -LONG mRSWSIZ ; SWITCH TABLE 
3 “LONG ADSWSIZ 
8 “LONG ADSW 
LONG DASWSIZ 
9 DASW 
§ ; DEFAULT DEVICE NAME 
4 
0 
1 
2 


FDEV: .ASCII_ "LAAO' 
DE 


1 
1 
12 DE . 
! DEFDEVSZ = .=-DEFDEV 

15 PROMPT: .ASCII_ ‘LALOAD>' ; PROMPT STRING 
! PROMPTSZ = .-PROMPT 

18 IN 

1 


VSWMSG: 3; INVALID SWITCH MESSAGE 
ASCII ‘Invalid switch’ 


INVSWMSGSZ = .-INVSWMSG 
MRSW: ASCII ‘MULTI_REQUEST’ ; SWITCH NAMES 
3 MRSWSIZ = .-MRSW 
3 ADSW:  .ASCII ‘ANALOG_DIGITAL" 
§ ADSWSIZ = .-ADSW 
8 DASW: .ASCII ‘DIGITAL_ANALOG' 
4 DASWSIZ = .-DASW 


1 TRMS: .ASCII ‘: /' 


; TERMINATORS TABLE 
2 NTRMS = .-TRMS 


eed 


"$$Eb=198e 91:58:31 UmCLDnssmeSLALOAD-RaR; 1 
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404-000 MAIN PROGRAM eto 8:29:34 MCLDR. SRCJLALOAD.MAR; 1 et dh v4 
D 134 .SBTTL MAIN PROGRAM 
D 135 ;44 
p E ; FUNCTIONAL DESCRIPTION: 
D> 1 ; : THIS IS THE MAIN PROGRAM FOR THIS PROCESS. IT PROMPTS FOR 
6D 139: INPUT, READS THE INPUT, PARSES IT, AND THEN CALLS THE ROUTINE 
6p 140 WHICH SENDS TKE LOAD REQUEST OVER’A MAILBOX. 
6 144 ; CALLING SEQUENCE: | 
60 166 ; ENTERED WHEN PROGRAM IS STARTED 
D 146 > INPUT PARAMETERS: 
6b 147; 
ipo 
6D 150 : OUTPUT PARAMETERS: 
6D 151; 
06D 13 : NONE 
060 153; 
an 
O1FC a0ep 136 -ENTRY START, “M<R2,R3,R4,R5,R6,R7,RB> 
O06F 158 : OPEN INPUT AND OUTPUT FILES AND CONNECT RABS 
O06F 159 N FAB = INFAB 
4950 €9 007C 160 BLBC = RO, 138 
O7F 161 SOPEN FAB = OUTFAB 
39 50 €9 008C 16¢ BLBC _—RO,13$ 
OOBF 16 SCONNECT RAB = INRAB 
2950 €¢ C 164 BLBC _—RO,13$ 
OO9F 165 SCONNECT RAB = OUTRAB 
1950 €9 QOAC 166 BLBC  —sRO, 138 
$ AF 168 10$: : GET AN INPUT LINE 
OOAF 169 $GET RAB = INRAB 
00000000'8F 50 D1 ¢ 170 CPL RO #RMSS. EOF ; END OF FILE? 
06 i o¢ 1% BLBS  RO,15$ > SUCCESS 
0E0 3! OCs 174 13$:  BRW 100$ : ERROR 
ODA 31 cB 123 148:  BRW 98$ : EXIT NORMALLY 
CE 193 15$: GET SIZE OF INPUT LINE 
50  000000C2'EF 80 ¢ 178 hovy TNRAB+RAB W_RSZ,RO 
D8 p 179 BEQL : EMPTY LINE ~ REPROMPT 
D7? «181 ; SKIP LEADING BLANKS 
00000132"EF 50 20 38 D7 «1 ; SxPc) 30s #*A" * RO BUFFER 
1 DF BEQL : EMPTY LINE - REPROM 
52 5 7D O0E1 184 MOV = ROR + MOVE size AND AD ores TO R2,R3 
4 7D O0E4 185 MOVQ = RO.R + AND ALSO TO R4,R 
00c2 30 E7 $ BSBW Ss CVV fuPC ; CONVERT LINE TO UPPER CASE 
EA 1 : 20$: NOW LOOP LOOKING FOR END OF NAME 
FF7A CF 03 63 3A OOEA 1 focc (R3), ,#NTRMS, TRMS ; LOOK FOR A TERMINATOR 
05 12 OOFO 190 BNEQ : FOUND ONE 


LALOAD 16-SEP-1 1: 4 VAX/VMS Macro v04-00 Page 
yO%~000 MAIN PROGRAM g-se P-19 1382 te 38: i MCLDR.SRCJLALOAD.MAR; 1 . 
D 1 INCL ; BUMP CHAR, POINTER 
3 33 Pg SOBGTR R 208 ; TRY NEXT CHAR. 
194 30S: HAVE A TERMINATOR OR REACHED END OF LINE 
54 52) «C2 éuB 2,R4 ; R4 CONTAINS LENGTH OF NAME 
1 LOOK FOR SWITCH 
58 4 1 tLe ; INIT. FOR SEARCH THRU SWITCH TABLE 
1 + AND ALSO AS DEFAULT 
63 52 2F 3A LOCC} =—s-_-s #*A"'/*, R2,, (RB) 
6 13 BEQL 608 : NO SWITCH = USE DEFAULT 
: HAVE SLASH. RO,R1 CONTAIN REMAINING STRING DESC. 
51 6 incL 1 ; MOVE PAST SLA 
0 D DECL RO) : DEC. COUNT 
it 13 BEQL 55% : ERROR = INVALID SWITCH 
56 50 «7D MOV RO,R6 : COPY DESC. INTO R6 R? 
61 30 20 3A LOCC 3=— ss #*A"s*, RO, (R1) : LOCATE END OF SWITCH 
6 50 C2 SUBL RO, R6 : CALCULATE LENGTH OF SWITCH 
50S: COMPARE AGA NST NEXT ENTRY IN SWITCH TABLE 
52. FEFO CF48 = 7D ova. SWTBL R ; GET LEN. AND ADDR. OF SWITCH IN R2,R3 
63 52 00 67 36 2D CMPCS R6, CR + #6,R2,(R3) 
0 »D TSTL = RO : IF RO = 0, THEN SUBSTRING MATCH 
if 1 BEQL 60s 
eC 58 O03 F AOBLSS #3,R8,50$ 
55$: : ERROR - INVALID SWITCH 
QO000010C'EF FFOO CF 9 MOVAB _INVSWMSG, OUTRAB+RABSL : ADDRESS OF MESSAGE 
00000106" EF OE B MOVW #INVSWMSGSZ, QUTRABSRABSW RS2 _—: SIZE OF MESSAGE 
D «11 $08 7 OUTPUT MESSAGE 


60$: ; HAVE NAME CRIPTOR IN R4,R5; _SWITCH VALUE IN R8 
EV RI ; GET Ds ie OF DEVICE DESCRIPTOR 
Y_ INFO. INTO DEVICE DESC. 


3 ¢ 
; + LENGTH NON-ZERO? 
; NO, USE DEFAULT DESCRIPTOR 


51 — 7 
61 4 


~ 
“DD 

ore 
Sete Be te Ge 


BNEQ $ 
MOVAQ DEFDEVDESC,R1 
70$: 


ASSIGN. A CHANNEL To DEVICE 
$ass DEVN (R1),~ ; DEVICE NAME 
CHAN S DEVCHAN : CHANNEL 
1450 €9 BLBC nee : ERROR 
: NOy SEND A REQUEST TO LOADER 
7E 58 01 1 ADOL = (SP) ; PUSH MICROCODE Bilas 
00000130°EF  3F PUSHAW DEVCHAN : PUSH CHANNEL ADDRESS 
00000000' EF F CALLS @ #2. BASSSNDLDRG + SEND LOAD REQUEST (® DEASSIGN CHANNEL) 
32 t BLBS : SUCCESS, REPROM 
80$: USER ERROR IN RO - GET MESSAGE 
$ce1 $GID = RO,- : MESSAG 


E 10 
RSL EN = OUTRAB+RABSW -RSZ,- ; PLACE TO STORE MSG LEN 
BUFADR = BUFFERDSC BUFFER DESCR 
MOVAB BUFFER,OUTRAB+RABSL_RBF ; STORE BUFFER bok es IN RAB 


90$: ; OUTPUT ERROR MESSAGE 


OOOOO1OC*EF QO0000132°EF 9E 


DONNA TTT & 8 BB EB EWN AI IININININIDY) 2 | MQCOOOCOCOCOCOCO TBH TNH TNH HH 
BSSNNNOSNSSAT ITA SSSSS- FA Aww hOOOMoMoIU RB ae RUSS > PNET 


BEBE EEF ANIM PIPINPININIPININID 2 9 SS MOOD OOOOOCOCOOCOOWOWOOOOOWODO 
NAAR WN OD OD NAME WAIN SO OOO NAME WIN SO OD NAN EWN 9 O OD NIA MEW OOO NOUS wn 


cc ee ec ce ce le cc ee ce ee ee ee ee ce ee ce ee ee ee ee ee ee ee eed ed 


0 

0 

0 

0 

05 

51 FEBE CF 7E | 


0 
MAIN PROGRAM "OrSEE=18RS B1ieSi 8? HAR(DRS Magra, yon~oe., =| Page Og, 
9 
FF st BH . : SOEs ~ neva 


50 600° 3 
04 


LAI 


16-SEP-1984 01:56:34 VAX/VMS Macro V04-00 P 7 LAL 
CVTUPC = CONVERT LINE TO UPPER CASE ~$eei 1382 Bhi 88:87 FARINAS Magee, toe et eer” v04 


tac H oe .SBTTL CVTUPC = CONVERT LINE TO UPPER CASE 
Jac 3 FUNCTIONAL DESCRIPTION: 
1A é ; THIS ROUTINE CONVERTS THE INPUT LINE TO UPPER CASE 
Tac $3 : CALLING SEQUENCE: 
TAC 65 : BSBwW 
TAC e : INPUT PARAMETERS: 
1AC 63 ; RO CONTAINS SIZE OF LINE 
TAC 20 ; R1 CONTAINS ADDRESS OF LINE 
1AC re : OUTPUT PARAMETERS: 
1AC 273: 
1 ees 
OiAC id: : SIDE EFFECTS: 
O1AC 28 : RO,R1 ARE NOT PRESERVED 
OIAC .™ 
1 DIAC 81 CVTUPC: cHPR (R1) ,MLOWER_A ; 1s IT BEFORE LOWERCASE A? 
71 0182 68 CRPB (R1) ,#LOWER_2Z : Is IS AFTER LOWERCASE 2? 
8A 01B8 285 BICB  #*X20,(R1) : CLEAR LOWERCASE BIT 
D6 0188 86 208: NCL RI : MOVE TO NEXT CHARACTER 
F5 01BD SOBGTR RO, CVTUPC : REPEAT 
05 01CO 288 SB 
orc] 89 
1C1 290 
O1C1 291 
01C1 292 


¢ 11 
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ae 


etteneee YX 
x 


M 
03 ce NORMAL eeeteeee 
STAR 


0000010 


edd ys 

04 SYSSASSIGN eeeeeeee GX 

SYSSCONNECT eeeeenee GX 

SYSS$GET eeeenere CX 

SYSSGEIMSG eeeeeeee GX 

SYSSOPEN aeeeneer GX 
PuT aeeeeeee GX 


TRMS 0000006A R 


DD 
= 
=» 
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@ 
ed 
<= 
o 
o 
o 
haut 


ADSW 
ADSWSIZ 
BUFFER 
BUF FERDSC 
CVTUPC 


SOOSOSCOOOOSCO 
PRRRRRR RRS 


DASW 

DASWSIz = 
DEFDEV 

DEFDEVDESC 

thse 


2D 27D WWW DB 
Coo SOO OOD0 
——2 FR FERS 

ow 
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ow 
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SoOOSCOCOCOSOSOSOSOSOSOSOOOOOCSO 
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INVSWMSGSZ 
LOWER_A 
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Ss 


LOWER™2 
LPASSSNDLDRQ 


a4 
5) 
7] 

“Zee 
nn 
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" 

29 

So 
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SoOQooooooooooooo + 


e2233 


2E2VD 
SESS 
eens 
| oe | — 
wmv 
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omn 
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LALOAD 
sect synopsis 


tamer nam ene acen $ 


! Psect synopsis ! 


momen erenrnraecn cad 


PSECT name Allocation PSECT No. Attributes 


coat . SSH 3 0 ¢ 0.) NOPIC USR CON ABS 


1 ¢ 1.) NOPIC USR CON” REL 
0 4 -) NOPIC USR CON REL 
LPACODE 000001C1 ) 


NOPIC USR CON” REL 


LLL Ln 


! Performance indicators : 


tere n cece ec ee see ee cone w oo 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00:00:00.09 00:00:00.37 
ponnens processing 1 190 83:32: ts BS +8029) «Be 
s 1 19 00:00: 98 00:00:10. 
Synbol table sort 0 Bp BR: 0. 8 9 4 Sd 
Pass 2 66 0:00:01.11 06:00:02.4 
Symbol table output 10 0:00:00.07 OF 88 8-08 
Psect synopsis output 08: 0.03 i So 
Cross-reference output Q: 3: 9-00 0:00:00.00 
Assembler run totals 406 00:00:07.1 00:00:14.94 


My By yee set Limit was 1050 pages. 
bytes (49 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 344 non-local and ié local symbols. 
source lines were read in Pass 1, producing 21 object records in Pass 2. 

7 pages of virtual memory were used to define 21 macros. 


Macro Library name Macros defined 
_$255SDUA28: (SYSLIBISTARLET.MLB;2 pera RS 
593 GETS were required to define 18 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:LALOAD/OBJ=OBJ$:LALOAD MSRC$:LALOAD/UPDATE=(ENHS$:LALOAD) 
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